home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-0050 / ez_art.1_7 / conv_ez5.lst < prev    next >
File List  |  1997-04-16  |  1KB  |  45 lines
  1. Dim File%(32128/4)
  2. Addr%=Varptr(File%)
  3. Cls
  4. Repeat
  5.   A$=""
  6.   Dummy$=""
  7.   Print
  8.   Print "EZ Art File Converter"
  9.   Print "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯"
  10.   Print "  by Rich Stockdale  "
  11.   Print
  12.   Print "(1)  EZ5 -> PI1  Degas"
  13.   Print "(2)  EZ5 -> NEO  Neochrome"
  14.   Print
  15.   Print "(3)  Quit"
  16.   Print
  17.   Input A$
  18.   Cls
  19.   If A$="1" Or A$="2" Then
  20.     Fileselect "A:\*.EZ5","",Dummy$
  21.     If Dummy$<>"" Then
  22.       Print "Loading .EZ5 and .COL"
  23.       If A$="1" Then
  24.         Bload Dummy$,Addr%+34
  25.         Dummy$=Left$(Dummy$,Len(Dummy$)-3)+"COL"
  26.         Bload Dummy$,Addr%+2
  27.         Dpoke Addr%,0
  28.         Dummy$=Left$(Dummy$,Len(Dummy$)-3)+"PI1"
  29.         Print "Saving as .PI1"
  30.         Bsave Dummy$,Addr%,32066
  31.       Else
  32.         Bload Dummy$,Addr%+128
  33.         Dummy$=Left$(Dummy$,Len(Dummy$)-3)+"COL"
  34.         Bload Dummy$,Addr%+4
  35.         Dpoke Addr%,0
  36.         Dpoke Addr%+2,0
  37.         Dummy$=Left$(Dummy$,Len(Dummy$)-3)+"NEO"
  38.         Print "Saving as .NEO"
  39.         Bsave Dummy$,Addr%,32128
  40.       Endif
  41.     Endif
  42.   Endif
  43. Until A$="3"
  44. End
  45.